home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The X-Philes (2nd Revision)
/
The X-Philes Number 1 (1995).iso
/
xphiles
/
hp48_2
/
4colors
< prev
next >
Wrap
Internet Message Format
|
1995-03-31
|
13KB
From: Lutz Vieweg <lkv@mania.hotb.sub.org>
Subject: v03i024: 4colors - 4-Colors-Demo v1.0, Part01/01
Newsgroups: comp.sources.hp48
Followup-To: comp.sys.hp48
Approved: spell@seq.uncwil.edu
Checksum: 3603808158 (verify with brik -cv)
Submitted-by: Lutz Vieweg <lkv@mania.hotb.sub.org>
Posting-number: Volume 3, Issue 24
Archive-name: 4colors/part01
BEGIN_RDME 4coldemo.rdm
... this is the next joke I want to publish for the 48sx:
Display 4 colors (grey, of course) at one time!!!!
As you can see, the display routine works fine as long as there
is not much "grey" on the screen. But as soon as there are larger
regions filled with "grey", the LCD display shows some nasty
stripes... I really do not know why.
Maybe there are some LCD-experts out there who can tell me the
reason for this strange behaviour of the LCD display.
I will not proceed on trying to force 4 colors on the 48sx-screen
as long as these problems does not have an explanation.
now enjoy the demo...
Lutz Vieweg.
PS: My new EMail adress is lkv@mania.hotb.sub.org - please refer to
this adress in future.
PPS: The 4-color-display does not take much CPU-time. It's only a
joke, anyway.
PPPS: The directory is packed with the Redundance Fighter. Since there
may still be people out there, who did not load this one into
their calculator, I apended an uuencoded copy of the unpacker, RFU
to this MSG.
PPPPS: The syntax of GVIEW.o is GROB1 GROB2 #x #y GVIEW.o
where GROB1 and GROB2 are the bitplanes wich have to be
>= (131+#x)*(56+#y) pixel.
END_RDME
BEGIN_ASC cdemo.asc
%%HP: T(3)A(D)F(.);
"D9D20E1632C2A2093510256428F1204B69A20FF719E1008042270C496F6E6E20
71370E1B20F1E00460000982900844CFE364F174490000485C83F2440062502D
F898020118279354C0EF3804ED5AE4E0828935BEB5FFF8D52E1C5FD77E037032
498EFDB1002C074D410CFF9FFF913011CC20AE6AE1747510200CA5EFC626C31C
C730020801F50CFFFF5191FB3004700BC59AFF9460B63CCF1DC01089EEEFF604
13D1FBFFB16A10CEEBA5E8CEE4FFFFD0139BFFDA748CD4A17018FA084BEDBFDB
F34A027443639B1FF1501183242887EFEFF7BB32099B85532269290FBEFC1944
F9C841EA533322FBFFF3835D48F0D90E1299F7FFF7E65D80C14C1D47BE135731
062D0032F38A98D9C14A1A11304807487BEFDBFFF7C8B9829281DF44B6544E74
DF545A0B10320490885C3FF1490211B0FFA39D1C7E7EF2E114C3400E7EF7DFF7
85F7CFEB7B3907F4FF2DFF7E300C0E829EF0FF38F75A9227FF9EB00742ECBAF7
8CF3208FF14DFE08808F92DF1F38CF10C1FF100811C17C4F140C81843EDFF230
4D0A7CC8F100FFB0000C6CA90400E88DCFF002C0FF30B7480110D10D08FF7087
48F799E8E1BE8F31D23F18B2AB74304F342261B528F1CF1105B2AC308FF38420
642879CAE7C11208E4F082F61E7F38290019BECFA0E7F308ED032C9EE30CF7A8
0340027A53F807306FB19CCEF51EE79C10040F813FF1E938C70116C80E342ACB
10CF26A3088FFA1CF0B3151EB00320ACF782A78C993C1C33E80AEFB83FFCE361
8B04311DEEF7C5AAFF20814E06B0B317CFF5C08C710E3C1027400779E9B380C9
00F11BEFFFF91065446F1520F211EC001634E8174908B70968F36928A99E8FF7
1E0712032481F0E525744AD2A60320C700044FF7206201DD1EA92CB7F0300068
3D0C9C25E826A0004D76020F835489F94C8EE53EA0110222593D86000E04004C
0A50DC9FBD0C003300809FDF1001D1E7444752C940008A880811C6D8E1694EE0
0081E7480C93D18028F000A7E8030642183451D70C0E000CDFDF500867687408
8E200FF5FEE004203046C27F800CF3087FCFF5000F9B134BF0CAF3089BEFFD00
049E1EC250EF301C03DF100464DB0E0FF104EFFEEF108D29276258FF900EFF3C
9100021D30E8FF101CFF7523084646F890C800AE7F7B830D09A882E30741F18A
101961470302205FFF01642AA168E194C7FD0C17A2D09F300687147A51E74E47
20FDFFF1F3210080AEBFBFF2F30020522583C55C38C1F7008D400D1C124923FF
008EFBB03278B19281DEEEFFFEBFF000E378032C810E2A6CFF1B889206117411
B1CC58E192C000E848377CF14DBFD8604B2145E8A30A452810ED15C158DCDF22
43BC88E60B698B87C6CFFB305641F33229DF8F4530842E78209110110C8863E0
070C496F6E6E2070370E1B20F1E004600009000F70208140021122B20CFF7014
C0840D102CFFB914B060CF880E649A008EB5C93ECFF306488EE116F03CF41290
08EEFF305412C4043C99EFFB4D80E801600AE0842EFD7FDFFA91E41F5F704FFF
F3F10C322C8844E2A512F035FCB42C2F2CFFFF14A0002844ECEFD823F4802881
03114CEF049271024000A7032A19FDCFFEF30022561BC1622EB6DFFDF5195000
07844A074BA9488DFF35AAE872BD36A38CFFDF7FE0AFCBA8C5F844EF4CFFB8FF
43A65006BF454C8779F30E23FEF761110091B9424C3988F004E95EF3114500EC
1027408729CB0F002FEC64002008204B153ED78124F2941240240C83848AE7C4
94FC40E41841AD2032588190D010084483A222610F82692900410C1CBB00C1E8
32B5352304802C3298B79908199E608410819D205AB34632A1BB6E8404010C18
CEF972511C84EA20290DC1E5EEC00400B2393F441024C14A7467DE5A2F174148
308F049B3198B20617C2041D5E30CF75469A100A3C00E30A347744A708F70C0C
4A251810D18F1B7CCF80AC100D31810820087A0830DF30F41B7DC0090B00D200
81C0C5F532FE09810F00C708FF100D80860FF3880EF9734508730CDF701EB200
0EB307E10E20E0C730EF3E80EF1082EFF11CF00EB0EBF30CFFFE00EF2060DFFB
E6D70EFF004FFF66126722310740711FE300FFD3F03CF40800B720E18C8FF700
8F78B70B66400100F24F4A17F1FF8398EFD51B348008700C20CEA51CD0940EF7
2E30273484282C62064822F118FD72B72480D0E148518EFE852254E2F827FFFF
FD09E13257575812912E1C8EFFFF305F193DF71007CE801441C72611CF31ADFF
300B97084192C2157E08CF924461722B380048190F0AE190CFF3022800650D2A
183948D150000E16CEE124EF20D7010311D1CC7F10DFFF340E30E8412741A4FF
FF7005E30F4CF30025579000463A6E3087D5870EF3047408F841E44E97211047
C0031CF348760C83A5CC382CE87D83A5500DF7E0FD0A10C78058E530E0A3F738
EF1C0EF0E841E8A5CF428CFEFF1004CFF36FF0E0E90837BF58AD706006EF9ABB
000E00D442AD0303289FFE9CB5D2510CF200058C5ECFEF7B30FAB991110C904B
C24E87DFFFFF7008E1F855B013B98E19598E1D03008BB52F70C3083C18C6FE8F
FFBB008DF9DFE2CF003863E13230834FFBF1BFFF97C1CF1073A2CA847FC35FFF
B200CFFF07C0FFF06883F3120CF0EAFC87100EFF5FECF0540C8573FD09FFF1F0
00EC3FFCFDC3EB21E70000700CF8DCCFF7F6020EEFFEA394300F70008E105026
BFFF750004CFEE1E82630000374B4A11FFF7E132983E27199132CFD70FFF5810
0C8FF9B89FF008F10000B74B0FF1FFF32020A8F7FF8D82052EBD3F08371DFF00
A011DFBDF3FCA8C200008F852F30CF780300ADFF0613190C7482DF90F50CF764
1002FFFB60C0812869CB78D10C2B68020EFFB3A3044074F9C00EFB100110EF71
00432D2B7216006FF100C308700C819FE700EFE3008ADCF72032D3C78D300EFF
180847CF1000EAF5B2C83544EF5805EF00086F443F29100CFE01361D9FE7000E
815401361E14A1781809E92CFF5C142C244107490970998F081C952C866B8CE8
82E025348E184270830001324D40400D0CFF9C7465830DE74B0A5A99E08BF7A6
2CAC6A8081D4C2658C001A71002420708F112C4883E7C782404D2032AB100014
00FDF1C8119C8FF1803EEF1821B2A00E8E2901B6324C4E141A1461703F89C220
DF7C31F0EB2402AD214E384AC7D320F5B6199EFF1217C1BD150800F232022634
37EC461782B098420E4741C404088C3E01D4417EB2073D32229E9DCFFFDBFC18
5875F0802C6EFFFDFFF63E00707465945475E2F670D9D20F9B81CA130E4A2051
00073D02207AE3532220834628941E82A9B136CAF062122261C228DF081CB47B
F4634E1DCC02781422CCD20D51008FB976034E1B201431301428A2606A211641
421F65507147135174147129E8018FC07601B52100AB215431B89E46818F2E14
B6481AF081B56B0B1182C9318BAE51B821001F10100317B14C14E9E1AF315014
D81AF18187144167B3E1DAF52A821212C9A0B49232FF1CB9A0611093A2AAB328
67260331B01332441BB9281F9014C8F2D760142164808C44230B2130C0200504
454D4F41350D9D20E1632858A1C2A20F2000320CA1109C2A2485F01605110893
232ED037F0424C61636B60245568747348D383FF037C49676864702762756950
D3C8D13E74E80B7018096FE45727563737021602B65697E2E2E6F02233A0D0DC
005746F14275EBF0E7C6E24441627B60274275697F1381004E4A205100300836
6108484E20707465945475E2F64B2A2F17A18DBF1470A33920848343400A132D
6E201095AB80C496F6E6460232E19701374AA463AB969131AB00C53A20833293
632B213084E20302564554563284E2050344454D4F497632DCC0284E20503444
54D4F484E20504454D4F41393632B21307A75"
END_ASC
BYTES: #57A7h 2778
BEGIN_UU cdemo.uue
begin 644 cdemo
M2%!(4#0X+46=+>!A(RPJD%,!4D:"'P*TEBKP?Y$>``@D<L"4]N;F`A=SX+$"
M'PY`!@"0*`F`1/P^1A]'E```A,4X+T0`)@72CXD@$(%R.44,_H-`WJ5.#BB8
M4^M;_X]=XL'U?><P!R.4Z-\;`,)PU!3`__G_&0,1S`+JIAY'5P$"P%K^;&(\
MP7P#((`07\#__Q49OP-`![!<J?])!FO#_-$,`9CN_F]`,1V__QNF`>R^6H[L
M3O__#3&Y_ZU'R$T:!X&O@+3>^[T_I"!'-#:Y\1\%$3A"@GC^_G^[(Y"Y6#4B
MEI+PZ\^11)^,%*XU,R*__S\XU80/G>`AF7__?V[5"!S$T73K,7438-(`(S^H
MB9T<I*$1`X1PA+?^O?]_C)LH*1C]1&M%Y$?]1:6P`2-`"8C%\Q^4(!$+_SK9
MP>?G+QY!/`3@YW_]?UA__+ZWDW!/_]+_YP/`X"CI#_^#?Z4I<O_I"W`DSJM_
MR#\"^!_4[X`(^"G]\8/\`1S_`8`1',?T0<`82./]+P/4H,>,'P#_"P#`QII`
M`([8_`\@#/\#>X00`1W0@/\'>(1_F8X>Z_@3+?.!*[I'`_1#(A9;@A_\$5`K
MR@/X/T@"1H*7K'X<(8!.#RAOX?>#D@"1Z_P*?C^`WC#"Z3[`?XHP!""G-8]P
M`_8;R>Q?X7[)`4#P&/,?GH-\$&&,X$.BO`'\8CJ`^*_!#SM1X0LP`LI_*'K(
MF</!,XZ@_HOSSSX6N$`3T>Y_7*K_`ACD8`L[<?Q?#,@7X,,!<@1PEYX[")P`
M'['^_Y\!5D3V40(O$<X`84..<92`>Y"&/Y:"FNGX?^%P(3!"&`]>4D>D+6HP
M`GP`0/1_`B80W>&:PGL/`P"&T\#)4HYB"@#49R#P.$68G\3H7N,*$2`BE=-H
M`.!``,2@!<WYV\``,P`(^?T!$!U^1'0EG`0`J(B`$6R-'I;D#@`8?H3`.1T(
M@@\`>HXP8"2!0Q5]P.``P/W]!8!VAD>`Z`+P7^\.0`(#9"SW",`_@/?\7P#P
MN3&T#ZP_@+G^WP!`Z>$L!?X#P3#]`4!&O>#P'T#^[_X!V))R)H7_">#_PQD`
M(-$#CO\!P?]7,H!D9(\)C`#J][<XT)"**#YP%!^H`9$6=#`@`O7_$$:B&H8>
M27S?P'$J#?D#8'A!IQ5^Y'0"W_\?/Q(`".K[^R\_``(E4CA<Q8,<?P#8!-#!
M(90R_P#HOPLCAQLI&.WN_^_[#P`^AS#"&."BQO^QB"E@$4<1&\R%'BD,`(Z$
M<\<?U/N-!K025(XZH%2"`=Y1'(7-_2(TRXANL):X>&S\OP-E%#\CDOWX5`-(
MXH<"&0$1P(@V#G#`E/;FY@('<^"Q`A\.0`8`D`#P!P(8!"`1(BO`_P=!#$C0
M`<+_FT$+!OR(X$:I`.A;G./\/V"$Z!YA#\-/(0F`[O\#12%,0,.9_K_4"(X0
M!J`.2.+?]_VO&4[Q]0?T_S\?P"/"B$0N6B$/4\]+PO+"__]!"@""1,[^C3)/
M"((8,!'$_D`I%R`$`'HPHI'?_.\_`")EL1PFXFO]WU^1!0!P2*1PM)J$V/]3
MJHXGVV,ZR/_]]P[ZO(I<CT3^Q/^+_S1J!6#[5,1XES_@,N]_%A$`&9LDQ).(
M#T">Y3\15`#.`7($>)*\\`#RSD8``H`"M%'C?1A"+TDA!$+`.$BH?DQ)SP1.
M@13:`B.%&`D-`8!$."HB%O`HEI(`%,#!NP`<CB-;4S)`",(CB7N9@)'I!D@!
M&-D"I3MD(QJ[YDA`$,"![)\G%<%(K@*2T!Q>[@Q``"N3\T0!0ARD1W;MI?)Q
M%(0#^$"Y$XDK8'$L0-'E`_Q79*D!H,,`/J!#=T1Z@'_`P*12@0$=^+''_`C*
M`=`3&(`"@*>``_T#3['7#)"P`"T`&`Q<7R/OD!CP`'R`_P'0"&CP/XC@GS=4
M@#?`_0?A*P#@.W`>X`(.?`/^XPC^`2C^'\$/X`N^/\#_[P#^`@;]OVY]X/\`
M]/]F(78B$W`$%_$^`/\]#\-/@`![`A[(^'\`^(=[L&8$$``O]*1Q'_\XB?Y=
ML4,(@`?``NQ:P0U)X'_B`W)#2(+")F"$(A^!WR=[0@@-'H05Z.]8(D4NCW+_
M_]^0'B-U=84A&>+!Z/__`_61TW\!<.P(011\8A'\$]K_`[!Y@!0I+%'G@/PI
M1!8GLH,`A)'PH!X)_#\@@@!6T**!DX0=!0#@8>P>0OX"?1`P$1W,]P']_T/@
M`XX4<A1*__\'4#[PQ#\`4G4)`&2CY@-X77C@/T!'@(\43N1Y$@%T###!/X1G
MP#A:S(/"CM<X6@70?P[?H`%\"(5>`PXZ?X/^P>`/CA2.6OPDR.__`4#\/_8/
M#IZ`<_N%V@<&8/ZINP#@`$TDVC`P@OGOR5LM%<`O`%#(Y?S^MP.OFQD1P`FT
M+.1X_?__!X`>CU4+,9OHD97HT3``N%OR!SR`PX%L[_C_NP#8G_TN_`"#-AXC
M`SCTOQ_[_WD<_`$W*JQ(]SSU_RL`_/]P#/\/AC@_(<`/KL]X`>#_]<X/1<!8
M-]^0_Q\/`,[SS]\\OA)^```'P(_-_']O(.#^[SI)`_`'`.@!!6+[_U<`0/SN
MX2@V``!SM*01_W\>(XGC<I$9(_Q]\/^%`<#XGXOY#X`?``![M/`?_S\"`HI_
M_]@H4.+;\X!ST?\`"A']VS_/BBP``/A8\@/\AS``VO]@,9'`1RC]"5_`?T8!
M(/^_!@P8@I:\AQW`LH8@X/\[.D`$1Y\,X+\!$`'^%P`TTK(G80#V'P`\@`?`
M&/E^`/X^`*C-?P(C/7S8`^#_@8!T_`$`KE\KC%-$_H50_@"`]D3SD@'`[Q!C
MT?E^`.`811!CX4$:AX&0GL+_Q4'"0A1PE)`'F?B`P5G":+;(CB@.4D/H@20'
M.``0(]0$!-#`_\E'5CC0?K2@I9D.N']JPLJF"!A-+%;(`*$7`$("!_@1PH0X
M?GPH!-0"([H!`$$`WQ^,$<GX'PCC_H$2*PK@Z)(0:R/$Y$&A018'\Y@L`OW'
M$P^^0B#:$N2#I'P]`E]KD>G_(7$<VU&``"\C(&)#<\YD<2@+B23@=!1,0(#(
MXQ!-%.<K<-,C(NG9_/^]SX&%5P\(PN;_W_]OXP`'1U9)15<N;P>=+?"Y&*PQ
MX*0"%0!PTR`"ISXU(@(X9())X2B:&V.L#R8A(A8L@OV`P4NW3S;DT<P@AT$B
MS"W0%0#XFV<PY+$"01,#08(J!J82810D\58%%W0Q%4=!%Y*.$/@,9Q!;$@"Z
M$D43B^ED&/CB06N$H0\86[:P$2B<$[CJ%8L2`/$!`3!Q&\1!GA[Z$P5!C:$?
M&'A!%'8['JU?HB@A(9P*2RDC_\&;"A8!.2JJ.X)V8C`3"S$C1+&;@O$)08PO
M?09!$D8(R$0RL!(##`)00%34]!13T-D"'C:"A1HL*O`"`"/`&@')HD)8#V%0
M$8`Y,N(-<P\DQ!8VM@9"589'-X0]./\PQY1VAD8'<B97E@4]C!WC1XZP!X&0
M]DYU<F5S<R!A(&ME>2XN;@\B,PH-S0!U9!\D5[X/?FPN1!0FMP9R)%>6]S$8
M`.2D`A4``X!C%H"$Y`('1U9)15<N;[2B\G$:V/M!!SJ3`D@X-`2@,=+F`@%9
MN@A,:6]N9"`C'GD0<Z1*-KII&1.Z`%RC`C@C.3:R$@-(+C`@951%92-(+E`P
@1%34])1G(\T,@N0"!4-$14U/2"Y00%34]!238R,K,0!(
`
end
END_UU
BEGIN_ASC rfu.asc
%%HP: T(3)A(D)F(.);
"D9D202BA81CCD20562008FB97608FE31608F2D76014713514334C2A208A66217
414334F00008B24117414334256428A2606CF11748F60860143174E256068D18
18FA945F13706D6068F8DA601F975071471351361451350781AF0A0781AF0B74
1084A8F2D760142164808C81AF1B134AB3A2F53132007AA714EAE7161A674606
3903140791196C6531507C01968D031F1A6A6F3031E514A1590160170A6E5FE8
1AF1234F5000EA4118A80081AF02658F6EF0AE8A6D14E15D0160170A6D5FE81A
F1AE24AD8AA0081AF0A3120798096C0131407C7081860781860381AF00317072
6013681AF0B81A618AE5E4137135E2134A6D14E15D0160170A6D5FE81AF1A81A
F10E24A18AA0081AF0A81AF1B13465CE6E30AE5D0A64A2F53132007AA714EAE7
161A67550B64A6D59D0134BBF406A00347AC810684A8F2D76001B2130283C"
END_ASC
BYTES: #C382h 324
BEGIN_UU RFU.uue
begin 644 rfu
M2%!(4#0X+46=+2"K&,PM4"8`^)MG@.\3!OC29Q!T,14T0RPJ@&HF<10T0P\`
M@"L4<10T0U)&@BH&QA]QA&^`!D$31RYE8-B!@:])]3$'U@:&CZT&\7D%%W0Q
M%6-!%5-P&/J@<!CZL$<!2(HO?09!$D8(R!CZL3&D.RI?$R,`IWI!KGYAH79D
M8),P07`9D<96$P7'$&G8,/&AIO8#$UY!&I40!G&@YO6.H1\R]`4`KA2!B@`8
M^B!6^.8/ZJC601[5$`9QH-;UCJ$?ZD+:J`J`H0\Z(7")D,80$P3'!QAH<!AH
M,!CZ`!,')P8QAJ$/BZ$6J%Y.,1=3+C&DUD$>U1`&<:#6]8ZA'XJA'^!"&J@*
M@*$/BJ$?&T-6[.8#ZM6@1BI?$R,`IWI!KGYAH795L$9J7=D00[M/8`HP=,H8
*8$B*+WT&$"LQ`.8#
`
end
END_UU
--
..instead of funeral wreaths we'd like you to send your donations
to lkv@mania.hotb.sub.org even now. Credit-cards welcome.